home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / games / spassion / knowhow.lzh / ノウハウ / ANDsam.bas < prev    next >
BASIC Source File  |  1993-11-10  |  620b  |  24 lines
  1. int a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
  2. /*======================================================
  3. beep
  4. locate 0,0:print "おそいはず！"
  5. for j=0 to 100
  6.  for i=0 to 500
  7.  if a=100 and a=b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z then a=0
  8.  next
  9. locate 15,0:print j
  10. next
  11. /*======================================================
  12. beep
  13. locate 0,2:print "はやいはず！"
  14. for j=0 to 100
  15.  for i=0 to 500
  16.  if a=100 then { if a=b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z then a=0 }
  17.  next
  18. locate 15,2:print j
  19. next
  20. /*--------------
  21. beep
  22. print "hit any key"
  23. while inkey$(0)="":endwhile
  24.